From 8a2c760a0efb478880a3a198e9713a5fb69b5b8a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 13 Jun 1993 00:01:50 +0000 Subject: [PATCH] (Fload): Use call5. --- src/lread.c | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/src/lread.c b/src/lread.c index 57410a71d78..385a73d5af6 100644 --- a/src/lread.c +++ b/src/lread.c @@ -326,16 +326,7 @@ Return t if file exists.") /* If file name is magic, call the handler. */ handler = Ffind_file_name_handler (str); if (!NILP (handler)) - { - Lisp_Object args[6]; - args[0] = handler; - args[1] = Qload; - args[2] = str; - args[3] = noerror; - args[4] = nomessage; - args[5] = nosuffix; - return Ffuncall (6, args); - } + return call5 (handler, Qload, str, noerror, nomessage, nosuffix); /* Avoid weird lossage with null string as arg, since it would try to load a directory as a Lisp file */ -- 2.30.2